home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / cpp_libs / tools / bison.lha / bison++-1.04 / print.c < prev    next >
C/C++ Source or Header  |  1989-06-09  |  5KB  |  242 lines

  1. /* Print information on generated parser, for bison,
  2.    Copyright (C) 1984, 1986, 1989 Free Software Foundation, Inc.
  3.  
  4. This file is part of Bison, the GNU Compiler Compiler.
  5.  
  6. Bison is free software; you can redistribute it and/or modify
  7. it under the terms of the GNU General Public License as published by
  8. the Free Software Foundation; either version 1, or (at your option)
  9. any later version.
  10.  
  11. Bison is distributed in the hope that it will be useful,
  12. but WITHOUT ANY WARRANTY; without even the implied warranty of
  13. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14. GNU General Public License for more details.
  15.  
  16. You should have received a copy of the GNU General Public License
  17. along with Bison; see the file COPYING.  If not, write to
  18. the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  19.  
  20.  
  21. #include <stdio.h>
  22. #include "machine.h"
  23. #include "new.h"
  24. #include "files.h"
  25. #include "gram.h"
  26. #include "state.h"
  27.  
  28.  
  29. extern char **tags;
  30. extern int nstates;
  31. extern short *accessing_symbol;
  32. extern core **state_table;
  33. extern shifts **shift_table;
  34. extern errs **err_table;
  35. extern reductions **reduction_table;
  36. extern char *consistent;
  37. extern char any_conflicts;
  38. extern char *conflicts;
  39.  
  40. extern void conflict_log();
  41. extern void verbose_conflict_log();
  42. extern void print_reductions();
  43.  
  44. void print_token();
  45. void print_state();
  46. void print_core();
  47. void print_actions();
  48.  
  49. void
  50. terse()
  51. {
  52.   if (any_conflicts)
  53.     {
  54.       conflict_log();
  55.     }
  56. }
  57.  
  58.  
  59. void
  60. verbose()
  61. {
  62.   register int i;
  63.  
  64.   if (any_conflicts)
  65.     verbose_conflict_log();
  66.  
  67.   fprintf(foutput, "\n\ntoken types:\n");
  68.   print_token (-1, 0);
  69.   if (translations)
  70.     {
  71.       for (i = 0; i <= max_user_token_number; i++)
  72.     /* Don't mention all the meaningless ones.  */
  73.     if (token_translations[i] != 2)
  74.       print_token (i, token_translations[i]);
  75.     }
  76.   else
  77.     for (i = 1; i < ntokens; i++)
  78.       print_token (i, i);
  79.  
  80.   for (i = 0; i < nstates; i++)
  81.     {
  82.       print_state(i);
  83.     }
  84. }
  85.  
  86.  
  87. void
  88. print_token(extnum, token)
  89. int extnum, token;
  90. {
  91.   fprintf(foutput, " type %d is %s\n", extnum, tags[token]);
  92. }
  93.  
  94.  
  95. void
  96. print_state(state)
  97. int state;
  98. {
  99.   fprintf(foutput, "\n\nstate %d\n\n", state);
  100.   print_core(state);
  101.   print_actions(state);
  102. }
  103.  
  104.  
  105. void
  106. print_core(state)
  107. int state;
  108. {
  109.   register int i;
  110.   register int k;
  111.   register int rule;
  112.   register core *statep;
  113.   register short *sp;
  114.   register short *sp1;
  115.  
  116.   statep = state_table[state];
  117.   k = statep->nitems;
  118.  
  119.   if (k == 0) return;
  120.  
  121.   for (i = 0; i < k; i++)
  122.     {
  123.       sp1 = sp = ritem + statep->items[i];
  124.  
  125.       while (*sp > 0)
  126.     sp++;
  127.  
  128.       rule = -(*sp);
  129.       fprintf(foutput, "    %s  ->  ", tags[rlhs[rule]]);
  130.  
  131.       for (sp = ritem + rrhs[rule]; sp < sp1; sp++)
  132.     {
  133.       fprintf(foutput, "%s ", tags[*sp]);
  134.     }
  135.  
  136.       putc('.', foutput);
  137.  
  138.       while (*sp > 0)
  139.     {
  140.       fprintf(foutput, " %s", tags[*sp]);
  141.       sp++;
  142.     }
  143.  
  144.       fprintf (foutput, "   (%d)", rule);
  145.       putc('\n', foutput);
  146.     }
  147.  
  148.   putc('\n', foutput);
  149. }
  150.  
  151.  
  152. void
  153. print_actions(state)
  154. int state;
  155. {
  156.   register int i;
  157.   register int k;
  158.   register int state1;
  159.   register int symbol;
  160.   register shifts *shiftp;
  161.   register errs *errp;
  162.   register reductions *redp;
  163.   register int rule;
  164.  
  165.   shiftp = shift_table[state];
  166.   redp = reduction_table[state];
  167.   errp = err_table[state];
  168.  
  169.   if (!shiftp && !redp)
  170.     {
  171.       fprintf(foutput, "    NO ACTIONS\n");
  172.       return;
  173.     }
  174.  
  175.   if (shiftp)
  176.     {
  177.       k = shiftp->nshifts;
  178.  
  179.       for (i = 0; i < k; i++)
  180.     {
  181.       if (! shiftp->shifts[i]) continue;
  182.       state1 = shiftp->shifts[i];
  183.       symbol = accessing_symbol[state1];
  184. /*      if (ISVAR(symbol)) break;  */
  185.       fprintf(foutput, "    %-4s\tshift  %d\n", tags[symbol], state1);
  186.     }
  187.  
  188.       if (i > 0)
  189.     putc('\n', foutput);
  190.     }
  191.   else
  192.     {
  193.       i = 0;
  194.       k = 0;
  195.     }
  196.  
  197.   if (errp)
  198.     {
  199.       k = errp->nerrs;
  200.  
  201.       for (i = 0; i < k; i++)
  202.     {
  203.       if (! errp->errs[i]) continue;
  204.       symbol = errp->errs[i];
  205.       fprintf(foutput, "    %-4s\terror (nonassociative)\n", tags[symbol]);
  206.     }
  207.  
  208.       if (i > 0)
  209.     putc('\n', foutput);
  210.     }
  211.   else
  212.     {
  213.       i = 0;
  214.       k = 0;
  215.     }
  216.  
  217.   if (consistent[state] && redp)
  218.     {
  219.       rule = redp->rules[0];
  220.       symbol = rlhs[rule];
  221.       fprintf(foutput, "    $default\treduce  %d  (%s)\n\n",
  222.                  rule, tags[symbol]);
  223.     }
  224.   else if (redp)
  225.     {
  226.       print_reductions(state);
  227.     }
  228.  
  229.   if (i < k)
  230.     {
  231.       for (; i < k; i++)
  232.     {
  233.       if (! shiftp->shifts[i]) continue;
  234.       state1 = shiftp->shifts[i];
  235.       symbol = accessing_symbol[state1];
  236.       fprintf(foutput, "    %-4s\tgoto  %d\n", tags[symbol], state1);
  237.     }
  238.  
  239.       putc('\n', foutput);
  240.     }
  241. }
  242.